DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 


**F ILE**1D**DCLPARSE 


DODDDDDD ccccccce kk PPPPPPPP AAAAAA RRRRRRAR SSSSSSSS EEEEEEEEEE 

DODDDDDD ceccccce Lt PPPPPPPP AAAAAA RRRRRRRR SSSSSSSS EEEEEEEEEE 

dD DD CC LL PP PP AA AA RR RR SS EE 

dD dd CC LL PP PP AA AA RR RR SS ce 

dD DD CcC LL PP PP AA AA RR RR SS E 

dd dd CC LL PP PP AA RR RR SS EE 

dD DD CC LL PPPPPPPP AA AA RRRRRRRR SSSSSS EEEEEEEE 

dD DD CC LL PPPPPPPP AA AA RRRRRRRR SSSSSS nc 

0d dD CC LL PP AAAAAAAAAA RR SS EE 

dD dD CC LL PP AAAAAAAAAA RR RR SS EE 

oD bd CC LL PP Aa AA RR RR SS EE eee 
oD dd CC LL PP Ah AA RR RR SS EE eeee 
DDDDDDDD CCCCCCCC LLLLLLLLLL PP AA AA RR RR SSSSSSSS EEEEEEEEEE eee 
DODDDDDD CCCCCCCC LLLLLLLLLL OPP AR AA RR RR SSSSSSSS EEEEEEEEEE eeee 
LL HII! SSSSSSSS 

LL HI! SSSSSSSS 

LL I] $$ 

LL I] $$ 

LL I] $$ 

LL I] $s 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] $$ 

LL I] $$ 

LL I] sh) 

LL I] $s 

LLLLLLLLLL IIIT] SSSSSSSS 

LLLLLLLLLL HT] SSSSSSSS 
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DCL.SRCID LPARSE.. MAR; 1 


Win— 


SRAAAAEAAAEAAAEAAAAAAAAAAAAARARAAARAAARARAAAAAAAAAAEAAAAAAAAAERERAAAAAAEEEAEEETE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPM YP CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RES ERVED. 


SOF TWARE 
N em 


; a wee Hee te LICENSE AND MAY BE USED AND COPIED 
SION THE 
s ~% 


wt 

ay RMS r a SUCH License AND WITH THE 
OV CoPinic GH NO NOTI THIS sof TWARE OR ANY OTHER 
NO ROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
TITLE Fo. AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® ® 
® ® 
* ® 
*@ e 
® y 
® ® 
® ® 
® ® 
® ® 
® ® 
;® TRANSFERRED. « 
*@ ® 
® eo 
* * 
*f % 
°® ® 
*@ ® 
°@ te 
°® ® 
*® * 
:* * 


a bd oe oD a Ad wb 


NAAN SO OOO NA NE WN © OO NAME WIN © OO NAN EWN 3S OO NOUS UP OWOODVNAUSE 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATI On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


RATA EAAAAAAEAEAAAEAAEAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAEAAAEE 


SOoSooooooooooooooooooooooooSo 


SoOSSSSSSOSSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOOOOSOSOSOOSO 
OOCOSSOoCoocooooooo 


AUTHOR: TIM HALVORSEN, NOV 1980 
MODIFIED BY: 
v03-014 muSO0SS Harold Schultz 19-Jul-1984 


x building of error message frame for LIBSSIGNAL. 
In the event of a buffer overflow, signal CLI$_BUFOVF 


Change .ASCID default prompt to .ASCIC. 
v03-007 PCG0013 Peter George 27-Dec-1982 


0 
09 instead of SS$_BUFFEROVF 
0 v03-013 PCG0019 Peter George 08-Dec-1983 
° Fix bug in error message routine. 
0 4 v03-012 wrereys Peter George 27-Jul-1983 
? Fill im WRK_L_SIGNALRIN. 
4 v03-011 PCG0017 Peter George 15-Jun-1983 
DC 4 Return, do not signal, NOC MD status. 
2 Remove special code for negative statuses. 
& v03-010 PCG0016 Peter George 20-hor=1985 
4 Include command fe segnes when signalling syntax errors. 
4 Clear WRK_B_PARM 
v03-009 PCG0015 Peter George 15-Feb-1983 
Update to new structure level. 
v03-008 PCG0014 Peter George 08-Jan-1983 
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= PARSE A DCL COMMAND ‘ 1723601388 93:46:33 ves Macro V04 


4-SEP-1 DCL. SRC IDCLPARSE 
Fix accvio in referencing command descriptor. 


v03-006 PCG0012 Peter George aps rt + 
For compatibility, partially back off PCG0011. 


v03-005 PCG0011 Peter George Cemoqce 1962 
Command string is passed in by descriptor, 
rather than address of descriptor. 


v03-004 PCG0010 Peter George 16-Nov-1982 
Get prompt string descriptor from INT instead 
of just the address of the descriptor. 
Use WRK_G_INPUF instead of WRK_G_DCLPRSBUF. 


v03-003 PCG0009 Peter George 15-Nov-1982 
Use STRTOOLNG instead of PAPTOOLNG. 


v03-002 PCG0008 Peter Sgorge 15-0c t-1982 
Get the PROBEs right this time. 
Accept @ prompt s at as another argument. 
Prompt for a command line if none is supplied. 


v03-001 PCG0007 Peter George 15-Jul-1982 
Add pexware ares support. 
Use INT data structure. 
Add support for prompt and continuation routines 
Correct sense of branches after PROBEs. 
Remove unneccessary macro Library calls. 


MACRO LIBRARY CALLS 


SSCLITABDEF ; DEFINE TABLE STRUCTURE 
SSINTDEF : DEFINE INTERFACE FORMA 

CLDE ; DEFINE CLINT OWN S$ 

WRKDEF ; DEFINE COMMAND WOR 
SSSDEF 3 DEFINE SYSTEM MESSAGES 
SCLIMSGDEF 3 DEFINE ERROR/STATUS VA 
SSTSDEF ; DEFINE STATUS CODE FIE 
SPSLDEF : DEFINE PROCESSOR STATU 

CTRLZ == 26 3 CONTROL/Z CHARACTER 


-PSECT DCLSZCODE ,BYTE RD .NOWRT 


DEFAULT_PROMPT: 
sASCIC /COMMAND> / 


-00 
oMAR;1 


TORAGE AREA 
K AREA 


LUES 
LDS 
S FIELDS 


DCLPARSE 


OFFC 
52  00000000'GF +4 
5B O4 AC OD 
OC AB ODS 
50 18 +3 09 
4 
08 A D5 
0 12 
0103 3 
14 AB OD 
10 AB D 
8 F 
AB OD 
00000000 ' GF 96 F 
2150 € 
SA 2 
5 4% 
oa7a sh” 
F486 CA 
| 5 12 


: 
J 


cro v04-00 
CLPARSE .MAR;1 


RSEe= 188s 88:08:57 EARL MeS Hs 
: .SBTTL PARSE A DCL COMMAND 
; DCLSDCLPARSE = PARSE A DCL COMMAND STRING 


: THIS ROUTINE PARSES A DCL COMMAND STRING GIVEN THE ADDRESS OF THE COMMAND 
; TABLES WHICH DESCRIBE THE SYNTAX OF THE COMMAND SET. 


INPUTS: 


ome 


4(AP) = ADDRESS OF REQUEST DESCRIPTOR 
; OUTPUTS: 
NONE 


oENTRY D 


DCLPRSOWN,R2 ;GET ADDRESS OF WRK POIN 


C 
4 
n TER 

( T GET ADDRESS OF REQUEST DESCRIPTOR 


LSDCLPAR 
<R2,R3,R Rae ERs. R6,R7,RB,R9,R10,R11> 

MOVAL G*CTLSGL_D 

MOVL  4(AP),R1 


IF NO COMMAND STRING IS SPE IEIED AND WE ARE NOT PROMPTING, THEN 
CAUSE ALL SUBSEQUENT INTERFACE REQUESTS TO REFER TO THE ALREADY PARSED 
ORIGINAL COMMAND LINE. 

TST JNT_L_ENTADDR(R11) 
ROVE INT L_LIST(RI1) .RO 


L 
port NT_L_CONTINRTN(RO) 


: COMMAND STRING SPECIFIED? 
ives HEN BRANCH 

ROUTINE LIST SPECIFIED? 
: CONTINUATION ROUTINE SPECIFIED? 


BNE sYES, T 
10S: BRW RESTORE _SUPER_MODE 3NO, RESTORE THE SUPERVISOR MODE COMMAND 
; VALIDATE THE TABLE STRUCTURE. IF OLD, SUPPORTED VERSION, THEN UPGRADE THEM 
3 BEHIND "Fue USER'S BACK. 
208 SH INT_L_FREEVM(R11) sPUSH ADDR OF LIBSFREE « bor thy 
PUSHL INT-C“GETVRCRIT) PUSH ADDR OF LIBSSGET OUTINE 
PUSHAB INT_L_TABLES(R11) PUSH PLACE TO RETURN™ CONVERTED ADDRESS 
SH INT L_TABLES(R11) :PUSH ADDRESS OF TABLES 
CALLS on GU PGRADE _TABLE ALIDATE AND passim CONVERT TABLES 
LBC RO,55 I TGNAL ERROR AND EXIT 


MODE WRK BLOCK HAS BEEN ALLOCATED BEFORE, THEN ALLOCATE 
E ONE NOW. 


z= 


MOVL R2),R10 sWRK BLOCK ALLOCATED? 
; THEN BRANCH 


BEQL NO 
PROBEW ibe guseRec SUSER WRITABLE? 


WRK_K earths Rio) : 
BNEQ 5087 [YES, THEN BRANCH 


DB a et eth hs od ed es 8 8 ss a ttt or 


PDEA AD®D_D AAAs & BB BB EHF FINI NII WIIAIPIPIDIPINIPIIDINIINDY 9 


DEAN SD OOO NAN WIN 9 OOD NAME WI SO OOD NAUE WIN SO OD NAUE WN OOO NOUS WH 00 
. . . . 
: 
wo 
z 


mucus 


52 eneeeaadl 


0180 


Salina! ~ =a 
Feocezss Boo 


[=] 
as 
o— 


= PARSE A DC 
PARSE A 


COMMAND 
OMMAND 
kos: PUSHL 
PUSHL 
PUSHAL 
SLES: 
35$ BRW 
40$ ADOL3 
MOVL 
: IF CL 
: INTER 
$0$:  MOVAL 
TSTL 
BEQL 
BSBW 


hee, MOVAB 


RSEP=19RE 8:26:07 EDEL YSRCHELBakse-rans1 = "°c, 


? ALLOCATE USER MODE WRK BLOCK 


#-WRK_K_LENGTH 


(SP) 
S60) UT LGETURCATT) 
RO,408 


x{fT 
(SP) +,#-WRK_K_LENGTH,=- 


(R2) ,R10 


INT OWN STORAGE IS ALLOCATED 
FACE REQUESTS CAUSE THE OWN §T 


2) eee eeeleaatacies 
(R2) 


60$ 
DEALLOC_OWN 


: FILL IN WRK BLOCK FIELDS 


WRK_L “ERRORRTN(RIO) 


WRK_L "SIGNALRTN(R10) 
“LTLIST(R Biri 


WRK-L~PR 
INT EN(R 
RK-W~ ~PMPTLENCA 


bree PROMPT ,R1 
RO, WRK #_PMPTLEN(R10) 


sLENGTH TO ALLOCATE 
PLACE TO RETURN ADDRESS 
EADDR ESS OF LONGWORD ee LENGTH 
ZALLOCATE DYNAMIC MEMORY 
BRANCH IE If zuee 
; COMPU E ENDING ADDRESS WRK BLOCK 


IGET ADDRESS OF WRK BLOCK 


THEN FREE IT SO THAT SUBSEQUENT 
ORAGE TO BE REINITIALIZED. 


:GET ADDRESS OF CLINT OWN POINTER 
LINT OWN $10 STORAGE ALLOCATED? 
ZNO, THEN OR oun” STORAGE 


;SET ADDRESS OF EXPANSION BUFFER 
iSET ADDRESS OF RESULT PARSE TABLE 


: ;RESET COMMAND FLAGS 
we USER MODE PARSE FLAG 


TOTAL 
CONTINUATION ROUTINE 
ASSUME NO PROMPT oe NE 

3 ASSUME PROMPT S 
3NO_ SPECIAL CHARACTER PROCESSING 
:SET ADDRESS OF ERROR HANDLER 


SET ADDRESS OF ERROR SIGNALER 

[GET ADDRESS OF ROUTINE LIST 

SKIP N 

[GET CONTINUATION ROUTINE 

GET PROMPT ROUTINE 

3GET PROMPT STRING 

SKIP IF PRESENT 

3GET ADDRESS OF ASCIC DEFAULT PROMPT 


T LENGTH OF PROMPT 
GET DEFAULT PROMPT STRING 


ro 


50 O00388FA 8F 
FOE CA 


wn 
OOOooooooa »m 


Fe AVE “Fe “Ve “PUETECTOCTICTICTS 


WPpoor>,y V2Se 


AOrGEPOMOaWVOeO 
DP DD DP VP PF OVMNM OM NWS ONS 9 2 SS MO OUNIM 2 OU  @ MOOD LF LLLSIONVNVONWELESLS OP 


ee ee el ee em ee ed ed ed nd ed od 8 8d wd wd 2) wd 3 2d 


PUPS B® BS BE BE BE NIN II WINANS 2 


L 11 


COMMAND 15-SEP=1 
4-SEP=1 


Pete 
So 
we 
=z 
o 
<= 
= 


CMPW po KAT PRBTLENGRIOD 


DCLSUSER_INPUT 


CHPL —-#RNS$_EOF .RO 
BSBW DCLSGENEOL 


CMPW Dscsurt Mle 
BGTRU ttt - 
MAVAB 


WRK-L-CHARPTR(R 
MOVC DSCSW-LENGTH(RO 

@DSC$A_POINTER( 

WRK_G_INPBUF (R1 
CLRB Ss CRB 


hos: BSBw _—OCLSMARK 
BSBW tsb srome™ 
90$ 


BSBW OLS ARCH_VERB 


180$: STATUS Burove 
BRB 0$ 


190$: STATUS NOCOMD 
200$: 8SBW DCLSGENEOL 
BRB EXIT 


sic anette s Perit eager BT en nara ast th aBhamtoes ety Dy erlboeutine tke Ap. page tparananadin 
ee 


NNN NNSA AAA AAR AAA AMAA AAI ES BS BWIA AAAI OPIOID 


18 PARSE_VERB_QUALS: 


BSBW | DCLSPARSE_COMMAND 


TSTL Me LL ENTADDR(R11) 


VL. WRK _L_READRTN(R10) 
poege WRK , “PMPTLEN(R10) 


UFSIZ° 


GET FIRST TOKEN FROM COMMAND LINE 


MOVL T_L TABLES(R11) .R8 


BRB PARSE_VERB_QUALS 


3be 53:26:07 Epc sachoeLPaxse.nar;1 = "28" b 
F COMMAND IS MISSING, THEN PROMPT FOR IT NOW 


#CLIS_STRTOOLNG.R 


1811? THAT PROMPT IS TOO LONG 


iVES THEN EXIT 
aie 


IF EOF WAS FOUND, THEN RETURN THAT STATUS. 


END OF Lg 
3NO, START Ag Hs 


NG La COMMAND 
i GENERATE EOL D IPTO 


SI 
CR 


COPY USER SUPPLIED INPUT STRING INTO SCRATCH AREA 
$58: MOVL «sOINT_L -ENTADDR(RI1), RO 


GET ADDRESS OF COMMAND DESCRIPTOR 
3CHECK IF TOO BIG FOR INPUT BUFFER 


[BRANCH IF STRING IS TOO BIG 
:SET INPUT STRING POINTER 


[COPY STRING INTO INPUT BUFFER 


[PUT NULL STOPPER AS END-O:-LINE 


sMARK ee ene POSITION 


SIF NONE RETUR N ERROR 
'GET ADDRESS OF COMMAND TABLES 
* SEARCH VERS TABLE FOR VERB 
‘BRANCH IF ERROR 


INPUT STRING IS TOO BIG FOR BUFFER 


SET NO COMMAND STATUS 
A ATE EOL DESCRIPTOR 
sEXIT WITH ERROR 


: PROCESS COMMAND QUALIFIERS AND PARAMETERS 


sPARSE THE REST OF THE COMMAND 


atts 


00038080 8F 


00000000 ° GF 


a 


07 50 


02 6g 


50 
01 


= PARSE A pce COMMAND 
PARSE A DCL COMMAND 
15D CMPL 
Che ie ae 
E9 01 ? 10$:  BLBC 
i A ¢ NORMAL _EXIT: 
16A : STAT 
14] 
171 ? SIGNAL ALL 
Fe 171 ExIT:  BLBS 
04 i 4 93 90S: RET” 
oe 
2 96 : HANDLE ERR 
177. 298 ERROR: PUSH 
Pe 179 38 ERRO , 
04 0180 


"TSEb=198C 83:26:07 EDCLYSRCHBELB ARSE smans1 «= P88" 8) 


R09 #CLI$_NOCOMD :1f NOT CTRLZ-ED 
10$ STHEN CH cr FOR ERRORS 
SELSE RETURN NO COMMAND STATUS 
RO,EXIT ‘SIGNAL ANY NERROR $ 
US NORMAL :SET NORMAL STATUS 
ERRORS. 
BP RORaSG 


ORS DETECTED BY THE CHARACTER INPUT ROUTINES 
L RO ‘3 SAVE grag VALUE 
THE ERROR 


cuts #1,G*LIBSSIGNAL SIGNAL 


;RETURN TO CALLER 


- PARSE A DCL COMMAND 
SIGNAL ERROR MESSAGE 


ee 


‘ 


"TSEp=1986 33:05:07 UDELTSRCHDELBaRse-nan:1 =P" Sy 


«SBTTL SIGNAL ERROR MESSAGE 


; ERRORASG = SIGNAL ERROR MESSAGE 


: THIS ROUTINE IS CALLED TO SIGNAL AN ne MESSAGE AND DISPLAY THE SEGMENT 
OF THE COMMAND LINE THAT IS IN ERROR 


INPUTS: 


RO = ERROR NUMBER. 

WRK _L_MARKPTR = ADDRESS OF START OF ron IN_ EXPANSION BUFFER. 
WOK At EXPANDER = ADDRESS OF NEXT BYTE IN EXPANSION BUFFER. 
R10 = BASE ADDRESS OF COMMAND WORK 

R11 = BASE ADDRESS OF PROCESS WORK AREA. 


OUTPUTS: 


THE APPROPRIATE ERROR MESSAGE IS DISPLAYED ALONG WITH THE SEGMENT OF 
THE COMMAND LINE IN ERROR. 


RO IS PRESERVED ACROSS CALL. 


ERRORMSG: sOUTPUT ERROR MESSAGE 


PUSHR = #*M<RO,R1,R2,R3,R4,R5> ; SAVE REGISTERS 


: : Check if message should be suppressed. 


w 
w 
"oO 
m 
I ARPOMO 


SZ — en 


> > > > Pb P P PW 0000000 000 000000000 00 00.60.00 00. 09 00 00 9 G0 G9 G9.09.00 09 09. G0 G0. G9.00.00 00000000 00.0000 


od Set ttt tt + DNUIWNWOD DOOM Be oi ar rk i i a a dd a dd 


OOOO COCCOCOOOOCOOCOOCOOOOOR” 
a ee ce me ce ee ee ce ce ce ce ce me ee me em ee me ee ee me ec ee ee ee ed ed ed ed dd ed ed ed od od od dD 


ee ee ne 
eee eee 


CMPL RO, ACLIS_NOCOMD :1$_1T NOCOMD STATUS? 
Bea. 4=-«6 0$ YES, DO NOT SIGNAL 
BBS #STS$V_INHIB_MSG,RO,60$ iBR IF NO MESSAGE DESIRED 


if offending text should be output as part of this error message. 


MOVL #2,R5 sASSUME NO COMMAND SET WILL BE OUTPUT 

CLRL RG [SET STACK USAGE 

BBS #WRK_V_ COMMAND 3D0 NOT OUTPUT IF COMMAND IN EXECUTION 
wrk Q Vecacstnio). 40$ 

BsBw OS séC SMARKEDTOKEN GET DESCRIPTOR OF CURRENT PARSE STRING 

TSTB CR [DOES TOKEN START WITH EOL CHAR? 

BEQL a08 iif $0 ASSUME A AT EOL AND SKIP TEXT 

TSTL WILL Oat TOKEN BE SHOWN? 

BEQL Rs SIF NOT. SKIP TEXT 


the command Line part of the message argument vector. 


mova =e R11, =( SP) :PUSH SEGMENT DESCRIPTOR ON STACK 
PUSHL SP [PUSH ADDRESS OF SEGMENT DESCRIPTOR 
MOVW #*x0011,-(SP) ONLY OUTPUT THE TEXT PART 

MOVW a. =(SP§ [ONE FAO ARGUMENT 

PUSHL acts. CMDSEG :PUSH ARESSAGE CODE 

MOVL SET ARGUMENT COUNT 

MOVL #2%4,R4 tSET STACK USAGE 


7 
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vO SIGNAL ERROR MESSAGE 4-S P1986 33:25:07 DCL.SRCIJDCLPARSE .MAR; 1 = & 


1BC 59 ; 
4: ; Build the status part of the message argument vector. 
DD 01BC : Los: PUSHL r) :SET FAO COUNT 
DD 018 R SET STATUS C 
00800000" ¢F F 1¢ ChLS R5,G*LIBSSIGNAL SIGNAL T ROR 
E 4 C 1¢ 5 608: ADDL R4,SP ;POP EVERYTHING UP TO BUFFER AND DESC. 
fF BA Bite 6g 514, #*M<RO,R1,R2,R3,R4,R5> ;RESTORE REGISTERS 


C 12 
ND Hy 93:45:33 y 
OR MODE DATA STRUCTURES 4-SEP-1984 23:40:0 DCL.SRCIDCLPARSE .MAR; 1 


DCLPARSE - PA 
vO0% 


vo 
mao 
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e3 


zr 
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. ~SBTTL RESTORE SUPERVISOR MODE DATA STRUCTURES 
RESTORE_SUPER_MODE = RESTORE SUPERVISOR MODE DATA STRUCTURES 


CAUSE ALL SUBSEQUENT INTERFACE REQUESTS TO REFER TO THE ALREADY 
PARSED ORIGINAL COMMAND LINE. THIS IS DONE BY DEALLOCATING THE 

USER MODE WRK BLOCK, DEALLOCATING THE CLINT OWN STORAGE, AND ZEROING 
THE POINTERS TO BOTH OF THESE AREAS, CAUSING THE INTERFACE ROUTINES 
; TO BE REINITIALIZED WITH THE THE SUPERVISOR MODE WRK BLOCK. 


R2 = ADDRESS OF CURRENT WRK DATA STRUCTURE 


ESTORE_ SUPER_MODE : 
MOVL 


FPWUOMOMVMMMMUINVOSVVVT VV VV 9CCV0C0C0C0C0"O0 WP 


NOUS WN SO ODNAUES WN O OONAOULS UNO 0 


OO 000000000000 0909 09 69090909 INI NINN NINN NNO 


MMMNMOOCOVCVC VG VV IGINONAAAOOOCMAOOAOAMO 


SA 62 00 (R2) R10 ;WRK BLOCK ALLOCATED? 
0 1 BEQL :NO, THEN NCH 
0016 30 BSBW DEALLOC_WRK [YES, DEALLOCATE THE WRK BLOCK 
: IF CLINT OWN STORAGE IS ALLOCATED, THEN FREE IT SO THAT SUBSEQUENT 
: INTERFACE REQUESTS CAUSE THE OWN STORAGE TO BE REINITIALIZED. 
52. 00000000'°GF oD Ss: MOVAL  G‘CTLSGL_CLINTOWN,R2 § ;GET ADDRESS OF CLINT OWN POINTER 
62. D TSTL.  (R2) [CLINT OWN STORAGE ALLOCATED? 
03 1 BEQL 10$ [NO, THEN BRANCH 
0027 30 BSBW  DEALLOC_OWN [DEALLOCATE OWN STORAGE 
* 10$ STATUS NORMAL SRETURN SUCCESSFUL 


| 
D 12 
DCLPARSE = PARSE A DCL COMMAND 15*SEP=1984 23:42: AX/VMS Macro v04-00 Page 10 
yOr-008 DEALLOCATE USER MODE WRK DATA STRUCTURE 4-5 set 7 33:28:07 POLL SRCIDELPARSE MAR: 1 - 18, | 
1E8 if ; .SBTTL DEALLOCATE USER MODE WRK DATA STRUCTURE | 
EB 8 } DEALLOC_WRK = DEALLOCATE USER MODE WRK DATA STRUCTURE | 
168 4 3 : DEALLOCATE USER MODE WRK BLOCK. IF SUPERVISOR MODE, THEN JUST ZERO 
ise tge : THE POINTER. 
1EB 406 : R2 = ADDRESS OF CTLSGL_DCLPRSOWN 
168 407; R10 = ADDRESS OF WRK BLOCK 
1EB 408 ; INT_L_FREEVM(R11) = ADDRESS OF LIBSFREE_VM ROUTINE 
18 $19 3 
1B alg DEALLOC_WRK: 
03 OD O168 41 PROBEW #PSLSC_USER,- SUSER WRITABLE? 
OB7A BF 1ED 414 #-WRK_R_LENGTH,- : 
F486 CA 1F0 9415 WRK_K-LENGTH(RI0) ; 
12 13 O1F 416 BEQL 108 'NO, THEN BRANCH 
O1F5 4] ‘YES, THEN DEALLOCAT 
0000087A 8F DD O1F5 418 PUSHL #-WRK_K_LENGTH [LENGTH OF LOCAL WRK BLOCK 
52. DD O1FB 419 PUSHL  R2 SADDRESS OF LONGWORD CONTAINING ADDRESS 
04 AE OF O1FD 420 PUSHAL 4(SP) SADDRESS OF WORD CONTAINING LENGTH 
14 8B O02 FB 0200 421 CALLS #2,@INT_L_FREEVM(R11) :DEALLOCATE WRK BLOCK 
SE 04 CO 0204 4 é ADDL #4.SP SRESTORE THE STACK 
62 D4 0207 423 10$ CLRL = (RR) S INDICATE BLOCK NO LONGER EXISTS 
05 0209 424 RSB 


H4O 


2 
DCLPARSE = PARSE A DCL C 5=SEP=1984 23:42: AX/VMS Macro v04-00 Pa 
Pot DEALLOCATE hats STORAGE ans set 7 $3: 8:39 YOCL SRCIDELPARSE MAR: 1 = 
A 4 $ sSBTTL DEALLOCATE CLINT OWN STORAGE 
A 4 DEALLOC_OWN = DEALLOCATE CLINT OWN STORAGE 
A 4 DEALLOCATE CLINT OWN STORAGE. 
A 4&4 R2 = DDRESS OF CLINT OWN STORAGE 
A 4 33 INT_L_FREEVM(R11) = ADD DRESS OF LIBSFREE_VM ROUTINE 
A 435 i 
ae § 
A 437 DEALLOC_OWN 
00000090 ef DD a<€ : “PUSHL ppt C_SIZE :LENGTH OF CLINT OWN STORAGE 
2 DD 0210 4 PUSHL ADDRESS OF LONGWORD CONTAINING ADDRESS 
04 AE DF O212 440 PUSHAL TADDRESS OF WORD CONTAINI NG LENGTH 
14 ee 0 F 15 44 CALLS rh SINT _L_FREEVM(R11) :DEALLOCATE CLIN 1 OWN STORAGE 
ea i. 19 44 ADDL #4.SP TRESTORE THE STACK 
62 iC 443 CLRL (Rd) SINDICATE STORAGE NO LONGER EXISTS 


aes 


=> 


. 


ta 8 a ss I a ts a 


FP oP ad le Te le de ks 10) Ce ee ee ee ee Pe ee eee 


MFOOOCOCCSTD@SWS PC 


ike 7 peer getaigs waving taere yea 


44 w .SBTTL GET INPUT FROM THE USER 
44 ; DCLSUSER_INPUT = GET INPUT FROM THE USER 
450 ; THIS ROUTINE CALLS A USER=SUPPLIED INPUT ROUTINE WITH A PROMPT TO GET 
4 3 ADDITIONAL COMMAND INFORMATION FROM THE USER. 
4 $ THE FORMAT OF THE CALL IS: 
4 : : P1 = ADDRESS OF RETURN DESCRIPTO 
456 : Ps = ADDRESS OF PROMPT DESCRIPT 
4 ; P3 = ADDRESS OF WORD TO RECEIVE THE RETURN LENGTH 
439 : INPUTS: 
461 ; RO = ADDRESS OF USER INPUT ROUTINE 
46¢ ; Ri = ADDRESS OF PROMPT STRING DESCRIPTOR 
493 ; R10 = ADDRESS OF COMMAND DATA STRUCT 
465 : OUTPUTS: 
is : RO = STATUS OF THE READ 
4 e 
<0 DCLSUSER_INPUT:: 
47 MOVa = RG, = ( SP) :SAVE R4 AND RS 
47g MOV = R2, = (SP) [SAVE R2 AND R3 
47 SUBL § #ENT_K_MAX_PROMPT+1,SP ALLOCATE PROMPT BUFFER 
474 MOVL RO,RS SSAVE ROUTINE ADDR 
476 ; 
‘i? 3 IF A PROMPT WAS SUPPLIED, THEN PUSH ITS DESCRIPTOR ON THE STACK. 
t38 i TSTL = R11 ;WAS A PROMPT SUPPLIED? 
480 BEQL 108 N CREATE ONE 
481 MOVG © (R1),=(SP) PusH” DESCRIPTOR oF PROMPT STRING 
é : BRB 208 TISSUE THE PROMP 
484 ; 
4 5 ; IF NO PROMPT WAS SUPPLIED, THEN BUILD A CONTINUATION PROMPT ON THE STACK 
487 10$:  MOVB #*A/_/,(SP) s INSERT AN UNDERSCORE 
4 PUSHL SP [PUSH PROMPT BUFFER ADDRESS 
4 VL. #1, =( SP) SINIT prompt ater" 
4 ADDW $WRK_W_PMPTLEN(R10), (SP) 3ST P ROMPT BUFFER LENGTH 
49 PUSHL RS ~ [SAVE ROUTINE ADDRESS 
436 MOVCS WRK_W_PMPTLEN(R10),- :COPY IT INTO tHe REROMPT BUFFER 
493 RE et PMPTADDR(R10) ,- 
ie POPL Re lesa ROUTINE ADDRESS 
49 : 
49 ; SET UP PROMPT PARAMETERS AND THEN ISSUE THE PROMPT. 
; 20$: MOVAB WRK. G_INPBUF~2(R10) ,~ 3GET ADDRESS OF INPUT STRING 
2 MOVAB =1(R2),- TRESET THE CHARACTER POINTER 


as E 


F4BE CA 
ee 
OF 
«st A OF 


AL 


6243 9% 
62 21 491 
db2. 13 
09 «ES 
a a AA 


= PAR 
GET | 


SE A DCL C 15-SEP-1984 23:42: AX/VMS Macro V04-00 
abut FROM THE USER 27860-1382 33:25:39 DCL. SRCJDCLPARSE.MAR; 1 
8 3 WRK_L_CHARPTR(R10) : 
8 4 PUSHL R [PUSH ADDRESS OF INPUT BUFFER 
MOVZWL #WRK_C_INPBUFSIZ,-(SP) PUSH SIZE OF INPUT BUFFER 
PUSHAL (SP) ZPUSH ADDRESS OF RETURN LENGTH 
PUSHAL j (SP) [PUSH ADDRESS OF PROMPT STRING DESC 
7 PUSHAL 8 (SP) [PUSH ADDRESS OF RETURN DESC 
CALLS 4#3,(R5) $GET THE INPUT 
1 POPL R [GET INPUT SIZE 
1g POPL R [GET INPUT ADDRESS 
i BLBC ~=—_—«R0, 908 [SIGNAL ANY ERROR 
15 ; 
4 18 : INSERT AN EOL MARKER 
g 18 : CLRB —s-« (R2) CRB s INSERT EOL CHARACTER 
73 ? ; IF THE RECORD IS A FULL LINE COMMENT, REPROMPT NOW 
79 4 : CMPB Os #*A/!/, (R2) :1S FIRST CHAR AN EXCLAMATION MARK? 
As 4 BEQL 208 SREPROMPT IF SO 
i § : IF THE PREVIOUS RECORD ENDED WITH TRAILING SPACES OR TABS, 
7E 8 : INSERT A SPACE AT THE FRONT OF THE CURRENT INPUT RECORD SO 
ze 9: THAT PARAMETERS ARE DELIMITED PROPERLY. 
7 & BBCC #WRK_V TRAILSPC - :1F CLR, NO TRAILING SPACE SEEN 
2 WRK @ FLAGS(R105,80$ : 
MOVB = #*A [SET SPACE CHARACTER 
$ 4 BSBW DCLSBACKUPCHAR :APPEND TO FRONT OF INPUT BUFFER 
9 : 
3 $ : EXIT FROM INPUT ROUTINE 
9 } bos: MOVL #1,R0 ZRETURN SUCCESS 
C 540 90S: ADDL #ENT_K_MAX_PROMPT+1+8,SP:RESTORE THE STACK 
F 541 MOVG (SP)3,R SRESTORE REGISTERS 
32 4g MOV = (SP) +. RG ; 
9 4 BLBS RO. 10 $ 'SKIP IF SUCCESS 
98 544 CPW «=s—sRO.. @RMSS_EOFS*XFFFF [EOF STATUS? 
9 545 BEQL [YES, RETURN GENERIC EOF 
9F 46 JSB @WRK_L_ERRORRTN(R10) § ;CALL ERROR HANDLER 
AS 4 100$:  RSB 
a a3 110$: MOVL #RMSS_EOF .RO ZRETURN GENERIC EOF 
n i 
A 2 END 
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CKUPCHAR 
DCLSDCLPARSE 
DCLSGENE 
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OCLPARSE = PARSE A DCL COMMAND 15-SEP-19 242:5 AX/VMS Macro v04-00 P 15 | 
Psect synopsis raat $3 48: 33 Yet SRCID LPARSE. MAR; 1 set (3) | 

bmam ae ewe e nae emo} 

! Psect synopsis ! 

poewmamm seman ma mmaa $ 
PSECT name Allocation PSECT No. Attributes 
> Ss 00000000 < -) 9 ( 9.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS FFFFFFFC ¢ ) NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 
DCLSZCODE OOO002AC NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 

tama nee me wm neaneenteamncama$ 
! ; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 15 8:00:89 08 0:00:02.3 
—¥ bf processing os : + 06 7 : : 
id table sort :00:01.4 00:02. 
Pass 4 118 :00: “0° 0; : f 
Symbol table output 11 :00:00.11 :00:00.5 
Psect synopsis output :00:00.03 0:00:00.03 
Cross-reference output 3: : 2-8 0:0 98-90 
Assembler run totals 52 :00:14.4 0:00:50.51 


Macro coecect name Macros defined 
ofSeea3s M oy MLB;1 9 
dot 08430 L.MLB; 1 
Stay 8.MLB;1 0 
Fevsi se STARLET .ALB; 2 g 
vetais (all libraries) 1 


1047 GETS were required to define 13 macros. 
There were no errors, warnings or information messages. 


ua ode. 
There were 50 pages of symbol table spa epee allocated to hold 950 non-local gnd 28 local symbols. 
MACRO/LIS=LIS$:DCLPARSE/OBJ=O0BJ$:DCLPARSE MSRC$:DCLPARSE/UPDATE=(ENHS$:DCLPARSE) +EXECMLS/LIB+LIB$:D0CL/LIB+SYSS$LIBRARY : SYSBLOMLB/LIB 
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